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1.0 INTRODUCTION 

The following simple procedure will allow a non-privileged 
program to find the physical block number corresponding to a 
relative block, R, in a file. 



1.1 Read the HOME Block 

For the unit you're interested in : 

LOOKUP HOME. SYS [1,4] 

Read the file until you find a block whose first word is 
SIXBIT 'HOM*. (This should be block N-t-1, where N is the 
number of blocks per cluster.) 

Save the following words: 

10 HOMLUN - Logical unit number within the structure. 
16 HOMCNP - Count-pointer for retrieval pointers. 
20 HOMCLP - Address-pointer for retrieval pointers. 
:i^l I^QWPP ^ Plocks pejc cluster* 



1.2 Read the First RIB of the File 

LOOKUP FILE .EXT 

USETI 

INPUT 

N.B. - If writing, the file should be in UPDATE mode - %n:ite 
it once, then CLOSE, LOOKUP, ENTER. Otherwise the Retrieval 
Information Block (RIB) won't have been written on the disk. 



1.3 Scan the First RIB for the Relative Block, R 

Start with BASE-0. 

Hetrjpeval pointers start at relative word N of the RIB, 
where N«RH (word ) • 

If you find a retrieval pointer that equals 0, reread these 
instructions. You lost. 

If you find a pointer that equals XWD 0,4 00000 -Hi you have 
seen a "unit-change-pointer". The following retrieval 
podLnters, until another unit-change is found, refer to unit 
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n, where n is the relative unit within the file structure of 
the unit (eg DSKBn) • All RIBs start with a 
unit-change-pointer as ttie first retrieval pointer • 

If you find a pointer with LH non-0, then: 

The number of blocks described by this podLnter 

•L - HQMBPC*K, where K is obtained by an LDB c(HmCNP). 

If BASE><R<BASE-l*L, you won. 

Otherwise, BASE>BASS-»-L, try the next pointer. 

If the next pointer equals XVH) 0,-1 the block you are 

looking for is not in tliis RIB. To read the next RIB: 

USETI -n (n«2 to read the 2nd RIB etc.) 

INPUT 

Set BASE equal to the contents of word 33 of the RIB and 

scan this RIB as described above. 

If you win, the physical address equals R-BASE-KT, where J is 
obtained from an LDB c(HOMCNP)*HOMBPC. The unit on which 
the block resides is found from the last unit-change 
pointer. It should be the same as HQNLUN. 



2.0 The following program sliows how to find the physical 
block u.unber that corresponds to a relative block in a file. 

TITLE FNDBLK 
;THIS PROGRAM FINDS OUT THE PHYSICAL BLOCK NUFSER 
jCORRESPONDING TO BLOCK fDll53 IN FILE FOO 
ST: 



HOMLUP: 



RESET 

INIT 14 

Si:3IT 

HOMHDR 

HALT 

LOOKUP 

HALT 

INPUT 

ILDB 

CAME 

JRST 



/DSK/ 
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1,H0MHDR+1 
1,1'HOM •) 
HOMLUP 



; FOUND THE HOME BLOCK 



HRRZ 
MOVE 
MOVEM 
MOVE 

HLLM 
MOVE 
HLLM 
MOVE 
RELEASE 



>OCK 

l,HOMHDR-l-l 

2,10(1) 

^,LUN 

2,16(1) 

2,CNP 

2,20(1) 

2, CLP 

10,21(1) 



;HOMLUN 

; COUNT-FIELD PNTR 
; ADDRESS-FIELD PNTR 
; BLOCKS PER CLUSTER 
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;R£AD THE PRIME RIB OF FILE *F00' 



IN IT 


14 


SIXBIT 


/DSK/ 


RIBHDR 




HALT 




LOOKUP 


FOO 


HALT 




USETI 





INPUT 




SETOM 


RIB 



;FIND THE RETRIEVAL PNTRS 

ILDB l,RIBHDR-»-l 
ADD 1,RIBHDR4-1 
MOVE 2,(1) 
TRZ 2,400000 



ADDI 



1,1 



LOOPS 



; INDICATE WE JUST READ 
;THE PRIME RIB(-l) 



jRH-LOC OF POINTERS 

ll-LOC OF 1ST POINTER 

; SHOULD BE A UNIT-CHANGE 

;1ST UNIT (WITHIN STR) 

;0F FILE 

7 POINT TO 1ST REAL 

; POINTER 

;3 IS BASE ADR. OF THE 

; POINTER 

;1 IS A POINTER TO 

; POINTER COUNTS 

7 COUNT FIELD 

TINE NUMBER OF BLOCKS 

PER CLUSTER 

TOP ADR4-1 OF PNTR 

IS 1153 PAST START 

OF PNTR 
AND NOT PAST END 

NO^ SET 3-START OF NEXT 

POINTER 

FOUND THE POINTER 

STEP TO NEXT POINTER 

IS THERE ONE? 

THAT'S TOO BAD 
; PICKED UP RIBCOD WORD? 
;YES, PROPER POINTER IS 
; PROBABLY IN EXTENDED RIB 
;IS IT A UNIT-CHANGE? 
;N0, SEE IF IT'S THE 
; RIGHT ONE 
;ZAP THE EXTRA BIT 
;AND SAVE THE UNIT NUMBER 
7 IN 2 



;HERE TO READ THE NEXT RIB FOR FILE 'FOO' 
NXTRIBs SOS 5, RIB ; POINT TO NEXT RIB 

USETI 0(5) ; USETI TO NTH RIB 



SETZ 


3, 


HLL 


1,CNP 


LDB 
IMULI 


4,1 
4,(10) 


ADD 
CAIG 


4,3 

3,fD1153 


CAIG 
SKIPA 


4,fDll53 
3,4 


JRST 

ADDI 

SKIPN 

HALT 

CAIN 

JRST 


FOUND 

1,1 
4,(1) 

4,-1 
NXTRIB 


TLNE 
JRST 


4,-1 
LOOP 


TRZ 
MOVE 


4,400000 
2,4 
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INPUT 
ILDB 
MOVE 
MOV 


l,RIBRDR-l-l ; 
6,RIBHDR-fl 1 
3,33(6) t 




ADD 


l,RIBBDRfl ; 




MOVE 
HLL 


2,(1) 7 
1,CNP ; 




JRST 


LOOP ; 


FOUNDS 


CAME 
HALT 
HLL 


2, LUN 1 
1,CLP 1 




LDB 
IMULI 


4,1 

4,(10) ; 




SUBI 


3,tDll53 1 




SUB 


4,3 ; 


EXIT 

; STORAGE 

HOMUDRs 

RIBHDRs 

HOMBLKs 

FOOs 


BLOCK 

BLOCK 

SIXBIT 

SIXBIT 



XWD 

SIXBIT 








3 

3 

/HOME/ 

/SYS/ 

lr4 
/FOO/ 


RIBs 
CLPs 
CNPs 
LUNs 






END 


ST 



RH « OFFSET OF POINTERS 

START OF DATA BLOC 

SET BASE TO BASE OF THIS 

RIB 

1-LOC OF FIRTS POINTER, 

THIS RIB 

GET THE FIRST POINTER 
1 IS A PO INTER TO 
POINTER COUNTS 
NOW GO SCMI THIS RIB 

IS IT THE RIGHT UNIT? 
NO 

YES, SET TO 

ADDRESS-POINTBR 

1ST BLO CK DESCRIBED BY 

POINTER 

DISTANCE FROM START 

OF POINTER 

4 CONTAINS THE PHYSICAL 

BLOCKlllll 



